home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Nordlicht Spiele
/
Nordlicht Spiele 05-04 (19xx)(Nordlicht)(DE)(PD).zip
/
Nordlicht Spiele 05-04 (19xx)(Nordlicht)(DE)(PD).adf
/
QM-Lader
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
1996-12-24
|
1KB
|
39 lines
SCREEN 1,640,200,4,2
WINDOW 1," Quizmaster V2.0 Loader",,0,1
PALETTE 0,0,0,0:FOR i=1 TO 0 STEP-0.005:PALETTE 1,i,i,i:NEXT i
PALETTE 15,0.3,0,0:PALETTE 14,0.6,0,0:PALETTE 13,1,0,0
PALETTE 12,0,0.3,0:PALETTE 11,0,0.6,0:PALETTE 10,0,1,0
PALETTE 9,0,0,0.4:PALETTE 8,0,0,0.6:PALETTE 7,0,0,1
PALETTE 6,0.3,0.3,0:PALETTE 5,0.6,0.6,0:PALETTE 4,1,1,0
PALETTE 2,0,0,0:PALETTE 3,1,1,0.5
LINE (0,1)-(640,5),15,b:LINE (0,2)-(640,4),14,b:LINE (0,3)-(640,3),13
LINE (0,7)-(640,11),12,b:LINE (0,8)-(640,10),11,b:LINE (0,9)-(640,9),10
LINE (0,11)-(640,15),9,b:LINE (0,12)-(640,14),8,b:LINE (0,13)-(640,13),7
LOCATE 4,28:COLOR 2
PRINT "Quizmaster Version 2.0":PRINT:PRINT
PRINT " Geschrieben von F. Zöllner für den Kickstart Public Domain-Pool"
PRINT
PRINT " Viel Spaß beim Spielen !¡!"
LINE (0,81)-(640,85),9,b:LINE (0,82)-(640,84),8,b:LINE (0,83)-(640,83),7
LINE (0,87)-(640,91),12,b:LINE (0,88)-(640,90),11,b:LINE (0,89)-(640,89),10
LINE (0,91)-(640,95),15,b:LINE (0,92)-(640,94),14,b:LINE (0,93)-(640,93),13
FOR i=1 TO 1000:NEXT i
FOR i=0 TO 1 STEP+0.007:PALETTE 2,i,i,i:NEXT i
FOR i=1 TO 3000:NEXT i
PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
COLOR 3:PRINT " Bitte warten Sie - Das Programm wird geladen..."
LINE (0,120)-(640,124),6,b:LINE (0,121)-(640,123),5,b
LINE (0,122)-(640,122),4
LINE (0,138)-(640,142),6,b:LINE (0,139)-(640,141),5,b
LINE (0,140)-(640,140),4
FOR i=1 TO 1500
a$=INKEY$:IF a$<>"" THEN Loop
NEXT i
Loop:
LOAD ":Main",r